object frmCalcular: TfrmCalcular Left = 273 Top = 162 BorderStyle = bsNone Caption = 'frmCalcular' ClientHeight = 192 ClientWidth = 388 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 388 Height = 192 Align = alClient BevelWidth = 3 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object Label3: TLabel Left = 40 Top = 96 Width = 289 Height = 65 AutoSize = False Caption = 'Valor das Quotas' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object Image1: TImage Left = 3 Top = 168 Width = 378 Height = 19 Picture.Data = {} end object Panel2: TPanel Left = 3 Top = 3 Width = 382 Height = 62 Align = alTop BevelOuter = bvNone Color = clGreen TabOrder = 0 object Label4: TLabel Left = 200 Top = 38 Width = 161 Height = 16 Alignment = taRightJustify Caption = 'Um momento por favor.' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 16 Top = 8 Width = 118 Height = 24 Caption = 'A calcular ...' Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Shape1: TShape Left = 8 Top = 32 Width = 361 Height = 2 Pen.Width = 2 end object ProgressBar1: TProgressBar Left = 204 Top = 12 Width = 150 Height = 16 Min = 0 Max = 100 TabOrder = 0 Visible = False end end object RichEdit1: TRichEdit Left = 390 Top = 4 Width = 260 Height = 162 Lines.Strings = ( '') TabOrder = 1 end end end